The National Palace Museum Experience/The National Palace Museum Experience.iso/Programs/Panorama.dxr/00090_control handlers.ls

Text File | 1998-11-19 | 4.4 KB | 152 lines

global gsbmouseupslist, gsbmousedownslist, sbcontentsprite, sbhiliterect, scrollpos, scrolllinesize, roomnumber, light, objectpict

on initsbcontrols
  set gsbmousedownslist to []
  set gsbmouseupslist to []
  setAt(gsbmouseupslist, sbhiliterect, 0)
  setAt(gsbmousedownslist, sbhiliterect, 0)
end

on addsbcontrol channel, chotspots, cactions, whichway
  if not listp(chotspots) or not listp(cactions) then
    return #badcontrol
  end if
  if count(chotspots) <> count(cactions) then
    return #badcontrol
  end if
  if whichway = #down then
    setAt(gsbmousedownslist, channel, [chotspots, cactions])
  else
    setAt(gsbmouseupslist, channel, [chotspots, cactions])
  end if
end

on deletesbcontrol channel, whichway
  if (whichway = #up) or (whichway = #both) then
    setAt(gsbmouseupslist, channel, 0)
  end if
  if (whichway = #down) or (whichway = #both) then
    setAt(gsbmousedownslist, channel, 0)
  end if
end

on hitsbcontrol whichway
  set me to the clickOn
  set hitpoint to point(the mouseH - the left of sprite me, the mouseV - the top of sprite me)
  if whichway = #down then
    set controlslist to gsbmousedownslist
    puppetSound(3, "Button")
  else
    set controlslist to gsbmouseupslist
  end if
  set mycontrol to getAt(controlslist, me)
  if not listp(mycontrol) then
    return #notcontrol
  end if
  if count(mycontrol) < 2 then
    return #notcontrol
  end if
  set hitlist to getAt(mycontrol, 1)
  if not listp(hitlist) then
    return #notcontrol
  end if
  set actionlist to getAt(mycontrol, 2)
  if not listp(actionlist) then
    return #notcontrol
  end if
  if (count(actionlist) <> count(hitlist)) or (count(hitlist) = 0) then
    return #badcontrol
  end if
  repeat with i = 1 to count(hitlist)
    if inside(hitpoint, getAt(hitlist, i)) then
      puppetSprite(sbhiliterect, 0)
      puppetSprite(14, 0)
      do(getAt(actionlist, i))
      exit repeat
    end if
  end repeat
end

on checksbrollover whichway
  set noroll to 1
  repeat with i = sbhiliterect - 1 down to 1
    if rollOver(i) then
      if (listp(getAt(gsbmouseupslist, i)) and ((whichway = #up) or (whichway = #both))) or (listp(getAt(gsbmousedownslist, i)) and ((whichway = #down) or (whichway = #both))) then
        hilitesbcontrol(i, whichway)
        set noroll to 0
        exit repeat
      end if
    end if
  end repeat
  if noroll then
    set the locH of sprite sbhiliterect to -1000
    set the visible of sprite objectpict to 0
    set the visible of sprite light to 0
  end if
end

on hilitesbcontrol contnum, whichway
  set norect to 1
  if (whichway = #up) or (whichway = #both) then
    set upcont to getAt(gsbmouseupslist, contnum)
    if not listp(upcont) then
      set uprects to []
    end if
    if count(upcont) < 2 then
      set uprects to []
    end if
    if voidp(uprects) then
      set uprects to getAt(upcont, 1)
    else
      nothing()
    end if
  else
    set uprects to []
  end if
  if (whichway = #down) or (whichway = #both) then
    set downcont to getAt(gsbmousedownslist, contnum)
    if not listp(downcont) then
      set downrects to []
    end if
    if count(downcont) < 2 then
      set downrects to []
    end if
    if voidp(downrects) then
      set downrects to getAt(downcont, 1)
    else
      nothing()
    end if
  else
    set downrects to []
  end if
  set rectlist to combo(uprects, downrects)
  set hoff to the left of sprite contnum
  set voff to the top of sprite contnum
  set where to point(the mouseH - hoff, the mouseV - voff)
  set mouseposition to point(the mouseH, the mouseV)
  repeat with r in rectlist
    if inside(where, r) then
      set order to getOne(rectlist, r)
      set smallpict to "A" & char 2 to 7 of word 2 of getAt(actslist, order) & "1"
      if the number of member smallpict > 0 then
        set the visible of sprite objectpict to 1
        set the visible of sprite light to 1
        updateStage()
        swapmember(objectpict, smallpict, 1)
      else
        set the visible of sprite objectpict to 0
        set the visible of sprite light to 0
      end if
      spriteBox(sbhiliterect, getAt(r, 1) + hoff, getAt(r, 2) + voff, getAt(r, 3) + hoff, getAt(r, 4) + voff)
      updateStage()
      set norect to 0
      exit repeat
    end if
  end repeat
  if norect or not rollOver(sbcontentsprite) then
    set the locH of sprite sbhiliterect to -1000
    set the visible of sprite objectpict to 0
    set the visible of sprite light to 0
  end if
end